home *** CD-ROM | disk | FTP | other *** search
/ GameStar 1998 May / GameStar 05-1998 - Heft-CD.iso / DEMOS / Incoming / asc / moon / moon_arcade.mdl < prev    next >
Encoding:
Text File  |  1998-02-20  |  13.1 KB  |  712 lines
  1. drag_coeff    0.01        
  2. gravity        2.2
  3.  
  4. ;-------------------------------------------------------
  5.  
  6. create hero "plfight"
  7.     label "plfight"
  8.     position 28317.6 -78 14188.3
  9.     forward -0.79 0 -0.61 up 0 1 0
  10.     armed_with "GREEN LASER"    rate 4
  11.     secondary_armed_with "ENERGY 1" rate 16 rounds 20
  12.     task
  13.         wait_until flag 0 set
  14.         playercontrols
  15.         position 28317.6 -78 14188.3
  16.     end
  17.  
  18.  
  19. create "mobspgun"
  20.     label "laser1"
  21.     position 23624 -553 15265.9
  22.     forward 0.8 0 0.5 up 0 1 0
  23.     armed_with "GREEN LASER" rate 3
  24.     inert
  25.  
  26. create "mobsprack"
  27.     position 23700 -524 14108.9
  28.     forward 0.5 0 0.8 up 0 1 0
  29.     armed_with "GUIDED MISSILE"    rate 32
  30.     task
  31.         slave_to "laser1"
  32.     end
  33.  
  34. create "mobspgun"
  35.     label "laser2"
  36.     position 34427.6 -1543 13849.6
  37.     forward 0.5 0 0.8 up 0 1 0
  38.     armed_with "GREEN LASER" rate 3
  39.     inert
  40.  
  41. create "mobsprack"
  42.     label "P8rack"
  43.     position 34427.6 -1514 12737.6
  44.     forward 0.5 0 0.8 up 0 1 0
  45.     armed_with "GUIDED MISSILE"    rate 32
  46. ;    task
  47. ;        slave_to "laser2"
  48. ;    end
  49.  
  50. ;-----------------small shields---------------------------
  51. createstatic "sshield"
  52. no_colide "ssgen1"
  53. die_with "ssgen1"
  54. position 29480.2 on ground 37826
  55.  
  56. createstatic "sshield"
  57. no_colide "ssgen3"
  58. die_with "ssgen3"
  59. position 40500.7 on ground 53144.5
  60.  
  61. createstatic "sshield"
  62. no_colide "ssgen4"
  63. die_with "ssgen4"
  64. position 39676.7 on ground 50949.5
  65.  
  66. createstatic "sshield"
  67. no_colide "ssgen5"
  68. die_with "ssgen5"
  69. position 38239.7 on ground 52529.5
  70.  
  71. createstatic "sshield"
  72. no_colide "ssgen6"
  73. die_with "ssgen6"
  74. position 47237 on ground 23138
  75.  
  76. createstatic "sshield"
  77. no_colide "ssgen7"
  78. die_with "ssgen7"
  79. position 48237 on ground 20938
  80.  
  81. createstatic "sshield"
  82. no_colide "ssgen8"
  83. die_with "ssgen8"
  84. position 46237 on ground 20938
  85.  
  86. ;-----------------big shields---------------------------
  87. createstatic "bshield"
  88. no_colide "bsgen1"
  89. die_with "bsgen1"
  90. position 31933.8 on ground 41342.7
  91.  
  92. createstatic "bshield"
  93. no_colide "bsgen2"
  94. die_with "bsgen4"
  95. position 31933.8 on ground 34102.7
  96.  
  97. createstatic "bshield"
  98. no_colide "bsgen3"
  99. die_with "bsgen3"
  100. position 34921.8 on ground 37720.7
  101.  
  102. createstatic "bshield"
  103. no_colide "bsgen4"
  104. die_with "bsgen2"
  105. position 20193.7 on ground 53659.2
  106.  
  107. createstatic "vbshield"
  108. no_colide "bsgen5"
  109. die_with "bsgen5"
  110. position 48847.8 on ground 53587.7
  111.  
  112. createstatic "bshield"
  113. no_colide "bsgen7"
  114. die_with "bsgen7"
  115. position 44309.5 on ground 47462.7
  116.  
  117. createstatic "bshield"
  118. no_colide "bsgen8"
  119. die_with "bsgen8"
  120. position 49081 on ground 36238.2
  121.  
  122. set_inert "bsgen5"
  123. set_inert "bsgen8"
  124.  
  125. set_inert "bsgen7"
  126. set_inert "ssgen3"
  127. set_inert "ssgen4"
  128. set_inert "ssgen5"
  129.  
  130. set_inert "ssgen6"
  131. set_inert "ssgen7"
  132. set_inert "ssgen8"
  133.  
  134. ;-------------------------------------------------------
  135. ;PHASE 1
  136. ;-------------------------------------------------------
  137.  
  138. phasestart
  139. clear_flag all
  140.  
  141. critical_group "ccentre"
  142.  
  143. phasemessage 60 60
  144. playcdslow
  145.  
  146. hud off
  147. camera
  148.     position 600 -300 -600 relative to "hero"
  149.     pointing_at "hero"
  150.     dolly 0
  151.     pause 1
  152.  
  153. procedure "P1e"
  154.     set_waypoint nearest "aland"
  155. end_procedure
  156.  
  157. procedure "P1a"
  158.     create "atank"
  159.         position 19067.7 on ground 22866.4
  160.  
  161.         towards "hero"
  162.         armed_with "ROCKET 1" rate 64
  163.         task
  164.             goto 23950.8 on ground 17849.9
  165.             do
  166.                 goto 26130.4 on ground 14266.9
  167.                 shoot "command4"
  168.                 goto 28348.1 on ground 13026.8
  169.                 shoot "command3"
  170.                 goto 27681.8 on ground 10495.8
  171.                 shoot "command1"
  172.                 goto 25091.8 on ground 11318.9
  173.                 shoot "command2"
  174.             forever
  175.         end
  176.     pause 75
  177. end_procedure terminate after 4 loops
  178.  
  179. pause 40
  180. set_flag 0
  181.  
  182. camera cockpit
  183.  
  184. #==================================
  185.  
  186. procedure "P1b"
  187.     wait_until number_of "aair"<2
  188.  
  189.     create "lfighter"
  190.         position 100 -3000 15000 relative toxz "hero"
  191.         towards "hero"
  192.         armed_with "RED LASER" rate 8
  193.         task
  194.             attack "hero"
  195.             break_task_if number_of "aland"=0
  196.             attack "command1"
  197.             attack "hero"
  198.             attack "command2"
  199.             attack "hero"
  200.             attack "command3"
  201.             attack "hero"
  202.             attack "command4"
  203.         end
  204.     pause 100
  205. end_procedure terminate after 4 loops
  206.  
  207.  
  208. procedure "P1c"
  209.     wait_until number_of "fighters"=0
  210.     create "hfighter"
  211.         position -5000 -3700 17000 relative toxz "hero"
  212.         towards "hero"
  213.         armed_with "PLASMA BOLT 1" rate 16
  214.         task
  215.             goto 0 -2000 0 relative to closest "aland"
  216.             do
  217.                 patrol
  218.                     point 0 -2000 0 relative to closest "aland"
  219.                     break_task_if distance_between me and "hero" <4000
  220.                     or number_of "aland"=0
  221.                 stop
  222.                 shoot "hero"
  223.             until number_of "aland" = 0
  224.             attack "hero"
  225.         end
  226.     pause 100
  227. do_procedure_until number_of "aland" = 0
  228.  
  229.  
  230. wait_until proc "P1a" terminated
  231. wait_until number_of "aland" = 0
  232. end_procedure "P1e"
  233.  
  234. procedure "P1e"
  235.     set_waypoint "command1"
  236.     wait_until "command1" destroyed
  237.  
  238.     set_waypoint "command2"
  239.     wait_until "command2" destroyed
  240.  
  241.     set_waypoint "command3"
  242.     wait_until "command3" destroyed
  243.  
  244.     set_waypoint "command4"
  245.     wait_until "command4" destroyed
  246.     clear_waypoint
  247. end_procedure
  248.  
  249. #==================================
  250. phasemessage 61 60
  251.  
  252. wait_until proc "P1b" terminated
  253. wait_until proc "P1c" terminated
  254.  
  255. wait_until number_of "fighters" = 0
  256. wait_until number_of "aair" = 0
  257. end_procedure "P1e"
  258. clear_waypoint
  259.  
  260. #==================================
  261. phasemessage 91 60
  262.  
  263. uncritical_group "ccentre"
  264.  
  265. pause 20
  266.  
  267. hud off
  268. camera
  269.     attached_to "hero"
  270.     position 600 -300 -600
  271.     pointing_at "hero"
  272.     dolly 1
  273.     dollyspeed 0.1%
  274. pause 80
  275.  
  276. set_inert "plfight"
  277.  
  278. ;-------------------------------------------------------
  279. ;PHASE 2
  280. ;-------------------------------------------------------
  281.  
  282. phasestart
  283. clear_flag all
  284.  
  285. phasemessage 2 60
  286.  
  287. create "hovertank"
  288.     label "P2hero"
  289.     position 24871 on ground 10309.6
  290.     forward 0.57 0 0.82 up 0 1 0
  291.     armed_with "RED LASER"    rate 4
  292.     secondary_armed_with "TRACER SHOT 1" rate 32 rounds 20
  293.  
  294.  
  295. switch_hero "P2hero"
  296.     task
  297.         wait_until flag 0 set
  298.         playercontrols
  299.             break_task_if flag 10 set
  300.     end
  301.  
  302.  
  303. create "bug"
  304.     label "P2bug"
  305.     position 27227.2 -500 14517.8
  306.     towards "hero"
  307.     armed_with "GREEN LASER"    rate 4
  308.     secondary_armed_with "DESIGNATOR" rate 128 rounds 20
  309.     inert
  310.     task
  311.         do
  312.             patrol
  313.                 point 1000 -1800 0 relative to "hero"
  314.                 break_task_if distance_between me and closest "aair" <6000
  315.             stop
  316.             shoot group "aair"
  317.         until flag 10 set
  318.         goto 0 -2000 0 relative to "hero"
  319.     end
  320.  
  321.  
  322.  
  323. create "alnadubs"
  324.     label "gun3"
  325.     position 26882.1 on ground 40742.8
  326.     forward 0 0 -1 up 0 1 0
  327.     armed_with "GREEN ENERGY LASER" rate 16
  328.     task
  329.         attack
  330.     end
  331.  
  332. create "alnadubs"
  333.     label "gun8"
  334.     position 25026.1 on ground 49973.9
  335.     forward 0 0 1 up 0 1 0
  336.     armed_with "GREEN ENERGY LASER" rate 16
  337.     task
  338.         attack
  339.     end
  340.  
  341.  
  342. hud off
  343. camera
  344.     position 600 -300 -600 relative to "hero"
  345.     pointing_at "hero"
  346. dolly 0
  347. pause 1
  348.  
  349. pause 40
  350. set_flag 0
  351.  
  352. camera cockpit
  353. #==================================
  354.  
  355. create "facraft"
  356.     position 22660.2 on ground 28148.3
  357.     towards "hero"
  358.     armed_with "RED LASER"    rate 4
  359.     task
  360.         wait_until distance_between me and "hero" < 7000
  361.         attack "hero"
  362.     end
  363.  
  364. create "facraft"
  365.     position 23689.4 on ground 22977
  366.     towards "hero"
  367.     armed_with "TRACER SHOT 1" rate 128
  368.     task
  369.         wait_until distance_between me and "hero" < 7000
  370.         attack "hero"
  371.     end
  372.  
  373.  
  374. create "facraft"
  375.     position 29410.6 on ground 23134.3
  376.     towards "hero"
  377.     armed_with "RED LASER"    rate 4
  378.     task
  379.         wait_until distance_between me and "hero" < 7000
  380.         attack "hero"
  381.     end
  382.  
  383.  
  384. procedure "P2wp"
  385.     set_waypoint nearest "aland"
  386. end_procedure
  387.  
  388.  
  389. procedure "P2a"
  390.     wait_until number_of "aair"=0
  391.     create "lfighter"
  392.         position 0 -3200 17000 relative to "hero"
  393.         towards "hero"
  394.         armed_with "RED LASER"    rate 4
  395.         task
  396.             attack "hero"
  397.         end
  398.  
  399.     pause 100
  400. end_procedure
  401.  
  402. wait_until distance_between "hero" and 26962.4 on ground 34777.2 <9000
  403. or number_of "aland"=0
  404.  
  405. procedure "P2b"
  406.     create "facraft"
  407.         position 12962.2 on ground 37364.2
  408.         towards "command1"
  409.         armed_with "RED LASER"    rate 4
  410.         task
  411.             goto 17585.1 on ground 31390.8
  412.             attack "hero"
  413.         end
  414.  
  415.     pause 150
  416. end_procedure terminate after 4 loops
  417.  
  418. wait_until proc "P2b" terminated
  419. wait_until number_of "aland" = 0
  420. end_procedure "P2wp"
  421.  
  422. phasemessage 21 60
  423.  
  424.  
  425. procedure "P2b"
  426.     set_waypoint nearest "agun"
  427. end_procedure
  428.  
  429. wait_until number_of "agun" = 0
  430. end_procedure "P2a"
  431. end_procedure "P2b"
  432. kill group "aair"
  433. clear_waypoint
  434. #==================================
  435. phasemessage 91 60
  436.  
  437. set_flag 10
  438. camera cockpit
  439. pause 60
  440.  
  441. ;-------------------------------------------------------
  442. ;PHASE 3
  443. ;-------------------------------------------------------
  444.  
  445. phasestart
  446.  
  447. clear_flag all
  448.  
  449. phasemessage 52 60
  450.  
  451. set_inert "bsgen1"
  452. set_inert "bsgen2"
  453. set_inert "bsgen3"
  454.  
  455. camera_task
  456.     hud off
  457.     cam_pos "hero"
  458.     cam_focus "P2bug"
  459.     dolly 1
  460.  
  461.     pause 150
  462.     cam_mode cockpit
  463.     set_flag 0
  464. end
  465.  
  466. switch_hero "P2bug"
  467.     task
  468.         goto 0 -3500 0 relative toxz "P2hero"
  469.             break_task_if flag 0 set
  470.         playercontrols
  471.         kill
  472.     end
  473. wait_until flag 0 set
  474. auto_aim "hero"
  475. kill "P2hero"
  476.  
  477. #==================================
  478. procedure "P3e"
  479.     wait_until "P2bld" destroyed
  480.  
  481.     camera_task
  482.         hud off
  483.         cam_pos -6000 -3500 0 attached_to "P2bld"
  484.         cam_focus "P2bld"
  485.         dolly 0
  486.         cam_goto 6000 -3500 0
  487.     end
  488.  
  489.     phasemessage 81 120
  490.  
  491.     explode group "aliens"
  492.     pause 50
  493.     explode group "aliens"
  494.     pause 50
  495.     camera cockpit         
  496. end_procedure terminate after 1 loops
  497.  
  498.  
  499. procedure "P3a"
  500.  
  501.     wait_until number_of "bomber" =0
  502.     create "lbomber"
  503.         position 10000 -3500 1000 relative toxz "pad2"
  504.         towards "pad2"
  505.         armed_with "PLASMA BOLT 1"    rate 24
  506.         task
  507.             do
  508.                 goto 0 -3500 0 relative toxz "hero"
  509.                     break_task_if distance_between me and "hero" < 3000
  510.                 shoot "hero"
  511.             forever
  512.         end
  513.     pause 75
  514. end_procedure terminate after 2 loops
  515.  
  516.  
  517. procedure "P3b"
  518.     create "lfighter"
  519.         position 2000 -9000 5000 relative toxz "pad2"
  520.         towards "pad2"
  521.         armed_with "PLASMA BOLT 3"    rate 0
  522.         task
  523.             goto 0 -4200 0 relative toxz "pad2"
  524.             do
  525.                 goto 27051.9 -3430.29 30302.5
  526.                 shoot "hero"
  527.                 goto 25602.4 -3346.02 41119.4
  528.                 shoot "hero"
  529.                 goto 32723.3 -3155.91 46495.4
  530.                 shoot "hero"
  531.                 goto 40765 -3081.51 39478.8
  532.                 shoot "hero"
  533.             forever
  534.  
  535.         end
  536.     pause 150
  537. end_procedure terminate after 4 loops
  538.  
  539.  
  540. wait_until proc "P3a" terminated
  541. wait_until number_of "aair" = 0
  542. wait_until number_of "bomber" = 0
  543. end_procedure "P3b"
  544.  
  545.  
  546. ;----------------
  547. ;-------1st pad
  548. phasemessage 62 60
  549. set_waypoint "bsgen4"
  550. wait_until "bsgen4" destroyed
  551.  
  552. phasemessage 63 60
  553. set_waypoint "pad2"
  554.  
  555. procedure "P3a"
  556.     wait_until number_of "fighters" <4
  557.     create "hfighter"
  558.         position 32110 -845 34375
  559.         towards 29449 -2943 31420
  560.         armed_with "RED LASER"    rate 4
  561.         task
  562.             goto 29449 -2943 31420
  563.             attack "hero"
  564.         end
  565.     pause 75
  566. end_procedure
  567.  
  568. wait_until "pad2" destroyed
  569. end_procedure "P3a"
  570. clear_waypoint
  571.  
  572. phasemessage 52 60
  573.  
  574. wait_until number_of "fighters"=0
  575.  
  576. ;----------------
  577. ;-------2nd pad
  578. set_volatile "bsgen1"
  579.  
  580. phasemessage 62 60
  581. set_waypoint "bsgen1"
  582. wait_until "bsgen1" destroyed
  583.  
  584. phasemessage 63 60
  585. set_waypoint "pad1"
  586.  
  587. procedure "P3a"
  588.     wait_until number_of "aair" <4
  589.     create "lfighter"
  590.         position 31867.9 -708.997 41033.6
  591.         towards 25677.8 -2929 41445.6
  592.         armed_with "RED LASER"    rate 4
  593.         task
  594.             goto 25677.8 -2929 41445.6
  595.             attack "hero"
  596.         end
  597.     pause 40
  598. end_procedure
  599.  
  600. wait_until "pad1" destroyed
  601. end_procedure "P3a"
  602. clear_waypoint
  603. phasemessage 52 60
  604. wait_until number_of "aair"=0
  605.  
  606.  
  607. ;----------------
  608. ;-------3rd pad
  609. set_volatile "bsgen3"
  610. phasemessage 62 60
  611. set_waypoint "bsgen3"
  612. wait_until "bsgen3" destroyed
  613.  
  614. phasemessage 64 60
  615. set_waypoint "pad3"
  616.  
  617. create "lfighter"
  618.     position 34681.9 -791.55 37772.7
  619.     towards 31512 -2193.67 35731
  620.     armed_with "GUIDED MISSILE"    rate 32
  621.     task
  622.         goto 31512 -2193.67 35731
  623.         attack "hero"
  624.     end
  625. pause 20
  626.  
  627. procedure "P3a"
  628.     wait_until number_of "aair" <6
  629.     create "lfighter"
  630.         position 34681.9 -791.55 37772.7
  631.         towards 31512 -2193.67 35731
  632.         armed_with "RED LASER"    rate 4
  633.         task
  634.             goto 31512 -2193.67 35731
  635.             attack "hero"
  636.         end
  637.     pause 20
  638. end_procedure
  639.  
  640. wait_until "pad3" destroyed
  641. end_procedure "P3a"
  642. clear_waypoint
  643. phasemessage 10 60
  644. wait_until number_of "aair"=0
  645.  
  646. procedure "P3a"
  647.     wait_until number_of "aair" <6
  648.     create "lfighter"
  649.         position 17000 -32000 500 relative toxz "hub1"
  650.         armed_with "RED LASER"    rate 4
  651.         task
  652.             attack "hero"
  653.         end
  654.     pause 75
  655. end_procedure
  656.  
  657. set_volatile "bsgen2"
  658. phasemessage 62 60
  659. set_waypoint "bsgen2"
  660. wait_until "bsgen2" destroyed
  661.  
  662. phasemessage 65 60
  663. set_waypoint "hub1"
  664. wait_until "hub1" destroyed
  665.  
  666. phasemessage 62 60
  667. set_waypoint "ssgen1"
  668. wait_until "ssgen1" destroyed
  669. end_procedure "P3e"
  670.  
  671. phasemessage 66 60
  672. set_waypoint "P2bld"
  673. wait_until "P2bld" destroyed
  674. clear_waypoint
  675.  
  676. phasemessage 24 60
  677.  
  678. end_procedure "P3a"
  679.  
  680. wait_until number_of "aair"=0
  681.  
  682. #==================================
  683. phasemessage 91 60
  684.  
  685. pause 20
  686.  
  687. hud off
  688. camera
  689.     attached_to "hero"
  690.     position 600 -300 -600
  691.     pointing_at "hero"
  692.     dolly 1
  693.     dollyspeed 0.1%
  694. pause 80
  695.  
  696. ;==============
  697. phasemessage 91 60
  698.  
  699. pause 20
  700.  
  701. hud off
  702. camera
  703.     attached_to "hero"
  704.     position 600 -300 -600
  705.     pointing_at "hero"
  706.     dolly 1
  707.     dollyspeed 0.1%
  708. pause 80
  709.  
  710. ;-------------------------------------------------------
  711. ;END OF SCENARIO
  712.